home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ WSH 1.xpl < prev    next >
Text File  |  2001-02-10  |  4KB  |  125 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Built in Windows Apps\Windows Scripting Host"
  5. "NAME"="Windows Scripting Host Options"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display copyright message when running a script"
  9. "DESCRIPTION 1"="Some options for Windows Scripting Host."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"=" "
  14. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  15.  
  16.  
  17.  ' how many settings are in this file (change "COUNT=" also!) 
  18.  CountSettings=1
  19.  
  20.  ' does this plug-in requires the user to logoff or to restart his PC?
  21.  bRequireLogoff=0
  22.  bRequireRestart=0 
  23.  
  24.  ' if this path exists in the registry, the plug-in will be enabled. if it does
  25.  ' not exist, the plug-in will be disable set to ="" to ignore this check and alway
  26.  ' enable the plug-in, regardless if the path exists or not
  27.  sCheckPath="HKLM\Software\Microsoft\Windows Scripting Host\"
  28.  sCheckPath2="HKLM\Software\Microsoft\Windows Script Host\"
  29.  
  30.  ' Settings for Value # 1
  31.  sV1_Path="HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Scripting Host\Settings\DisplayLogo" 
  32.  sV1_OnValue="1"      'what is the "ON" value (e.g. "1", "True", "On" etc.)
  33.  sV1_OffValue="0"     'what is the "OFF" value (e.g. "0", "False", "Off" etc.)
  34.  sV1_DataType="1"     'datatype of this value (REG_STRING=1, REG_DWORD=2, REG_BINARY=3, REG_EXPAND_SZ=4)
  35.  
  36.  ' Settings for Value # 2
  37.  sV2_Path="HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Script Host\Settings\DisplayLogo" 
  38.  sV2_OnValue="1"      
  39.  sV2_OffValue="0"      
  40.  sV2_DataType="1"     
  41.  
  42.  ' Settings for Value # 3
  43.  sV3_Path="HKCU\Software\Hypernix\Gooey\Environment\UseSounds" 
  44.  sV3_OnValue="1"      
  45.  sV3_OffValue="0"      
  46.  sV3_DataType="2"     
  47.  
  48.  ' Settings for Value # 4
  49.  sV4_Path="HKCU\Software\Hypernix\Gooey\Environment\UseAutoCopy" 
  50.  sV4_OnValue="1"      
  51.  sV4_OffValue="0"      
  52.  sV4_DataType="2"     
  53.  
  54.  ' Settings for Value # 5
  55.  sV5_Path="HKCU\Software\Hypernix\Gooey\Network\AllwaysOntop" 
  56.  sV5_OnValue="1"      
  57.  sV5_OffValue="0"      
  58.  sV5_DataType="2"     
  59.  
  60. '*** Xteq Systems "On/Off" Plug-in Template ***
  61. '
  62. '-- STOP CHANGES HERE !!
  63.  
  64.  
  65.  
  66. Sub Plugin_Initialize 
  67.  If Len(sCheckPath)>0 then
  68.     if left(sCheckPath,1)<>"\" then sCheckPath=sCheckPath & "\"
  69.  
  70.     b=(RegPathExists(sCheckPath) or RegPathExists(sCheckPath2))
  71.     if b=true then
  72.        Call ReadSettings
  73.     else
  74.        Call Disable
  75.     end if  
  76.  else
  77.     Call ReadSettings
  78.  end if
  79. End Sub
  80.  
  81. Sub ReadSettings
  82.                            Call ReadSettingsEx(1,sV1_Path,sV1_OnValue)
  83.   if CountSettings>=2 then Call ReadSettingsEx(2,sV2_Path,sV2_OnValue)
  84.   if CountSettings>=3 then Call ReadSettingsEx(3,sV3_Path,sV3_OnValue)
  85.   if CountSettings>=4 then Call ReadSettingsEx(4,sV4_Path,sV4_OnValue)
  86.   if CountSettings>=5 then Call ReadSettingsEx(5,sV5_Path,sV5_OnValue)
  87. End Sub
  88.  
  89. Sub ReadSettingsEx(ID,REGP,VALON)
  90.  s=RegReadValue(REGP)
  91.  'Call DebugMsg("VAL:" & s & " ID:" & ID & " VAL_ON:" & VALON)
  92.  if CStr(s)=VALON then
  93.     Call SetUIElement(ID,true)
  94.  End if 
  95. End Sub
  96.  
  97.  
  98. Sub Plugin_CheckData(ElementIndex)
  99. End Sub
  100.  
  101.  
  102. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  103.  Call WriteSettings(GetUIElement(1),sV1_Path,sV1_OnValue,sV1_OffValue,sV1_DataType)
  104.  Call WriteSettings(GetUIElement(1),sV2_Path,sV2_OnValue,sV2_OffValue,sV2_DataType)
  105.  
  106.  
  107.  if bRequireLogoff then Logoff()
  108.  if bRequireRestart then Restart()
  109. End Sub
  110.  
  111. Sub WriteSettings(CUR_VAL,REGP,ON_VAL,OFF_VAL,DAT_TYPE)
  112.   if CUR_VAL=true then
  113.      Call RegWriteValue(REGP,ON_VAL,DAT_TYPE)
  114.   else
  115.      Call RegWriteValue(REGP,OFF_VAL,DAT_TYPE)
  116.   end if
  117. End Sub
  118.  
  119.  
  120. Sub Plugin_Terminate 
  121. End Sub
  122.  
  123.  
  124.  
  125.